Sets the current logical position of the slider.
#Include <GuiSlider.au3>
_GUICtrlSliderSetPos($h_slider, $i_pos)
Parameters
| $h_slider | handle of the control |
| $i_pos | New logical position of the slider |
Return Value
None.
Remarks
None.
Related
None.
Example
#include <GUIConstants.au3>
#include <GuiSlider.au3>
opt('MustDeclareVars', 1)
Dim $Gui_Slider, $slider1, $button, $msg, $h_slider, $Status, $Pos = 0
$Gui_Slider = GUICreate("Slider Set Pos", 220, 100, 100, 200)
GUISetBkColor(0x00E0FFFF) ; will change background color
$slider1 = GUICtrlCreateSlider(10, 10, 200, 20)
GUICtrlSetLimit(-1, 200, 0) ; change min/max value
$button = GUICtrlCreateButton("Set Pos", 75, 55, 75, 20)
GUISetState()
GUICtrlSetData($slider1, 45) ; set cursor
$h_slider = ControlGetHandle($Gui_Slider, "", "msctls_trackbar321")
$Status = GUICtrlCreateLabel("Pos: " & GUICtrlRead($slider1), 0, 80, 220, 20, BitOR($SS_SUNKEN, $SS_CENTER))
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $button
$Pos += 10
If $Pos > 200 Then
$Pos = 10
EndIf
_GUICtrlSliderSetPos ($h_slider, $Pos)
GUICtrlSetData($Status, "Pos: " & GUICtrlRead($slider1))
EndSelect
WEnd